An Optimizing Compiler for the Icon Programming Language

return real } inline { if (x <= 0.0) { drunerr(205, x); errfail: } if is:null(b) then } inline { return C_double log(x); ) else { if !cnv:C_double(b) then runerr(102, b) b o d y { static double Iastbase = 0.0; static double divisor; if (b <= 1.0) { drunerr(205, b); errfail; } if (b != Iastbase) { divisor = log(b); Iastbase = b; } x = log(x) / divisor; return C_double x;